home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / wildcat / towerwc4.zip / TOWERS.WCX (.txt) < prev    next >
Wildcat! WCX  |  1996-04-04  |  16KB  |  804 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  15675 bytes  03/09/122  08:19:08am
  3. '! Code Segment Size  :7377 bytes
  4. '! Data Segment Size  :4917 bytes
  5. '! String Segment Size:8298 bytes
  6. '! Compiled with WCC version ? 019C017B
  7.  
  8.       Type Type26
  9.         s0 As String*15
  10.         s15 As String*15
  11.         Filler30(1 To 32) As Byte
  12.         s62 As String*7
  13.         Filler69(1 To 67) As Byte
  14.         s136 As String*3
  15.         Filler139(1 To 3) As Byte
  16.         s142 As String*4
  17.       End Type
  18.  
  19.       Declare Function Func3322(l65534 As Long, l65532 As Long) As Integer
  20.       Declare Sub Sub3794
  21.       Declare Sub Sub3919
  22.       Declare Sub Sub4073
  23.       Declare Sub Sub4227
  24.       Declare Sub Sub4381
  25.       Declare Sub Sub4467
  26.       Declare Sub Sub4542
  27.       Declare Sub Sub5094
  28.       Declare Sub Sub5342
  29.       Declare Sub Sub5392
  30.       Declare Sub Sub5442
  31.       Declare Sub Sub5476
  32.       Declare Sub Sub5972
  33.       Declare Sub Sub7084
  34.  
  35.       Dim s4463 As String
  36.       Dim l4467 As Long
  37.       Dim s4471 As String
  38.       Dim s4475 As String
  39.       Dim s4479 As String*1
  40.       Dim i4480 As Integer
  41.       Dim i4654 As Integer
  42.       Dim t26_4656 As Type26
  43.       Dim w4828 As Word
  44.       Dim i4830 As Integer
  45.       Dim s4832 As String*1
  46.       Dim s4833 As String
  47.       Dim s4837 As String
  48.       Dim s4841 As String
  49.       Dim i4845 As Integer
  50.       Dim i4847 As Integer
  51.       Dim s4849 As String*5
  52.       Dim i4854 As Integer
  53.       Dim r4856 As Real
  54.       Dim i4862 As Integer
  55.       Dim s4864 As String*1
  56.       Dim s4865 As String*1
  57.       Dim i4866 As Integer
  58.       Dim i4868 As Integer
  59.       Dim i4870 As Integer
  60.       Dim i4872 As Integer
  61.       Dim s4874 As String
  62.       Dim s4878 As String
  63.       Dim d4882 As Date
  64.       Dim s4884 As String
  65.       Dim s4888 As String
  66.       Dim i4896 As Integer
  67.       Dim s4898 As String
  68.       Dim s4902 As String*15
  69.  
  70.       Dim l65532_ As Long '! Temporary
  71.  
  72.       s4888 = Str(Node)
  73.       s4479 = "N"
  74.       CurrentDate d4882
  75.       s4884 = FormatDate(d4882, "mm/dd/yy")
  76.       EnablePages 0
  77.       s4833 = "          @07@─────@08@══════════@07@──────"
  78.       i4654 = FreeFile
  79.       s4471 = ProgPath + "towers.cfg"
  80.       Open s4471 For Input As i4654
  81.       Input #i4654, s4463
  82.       Input #i4654, l4467
  83.       Input #i4654, s4475
  84.       Close i4654
  85.       If Func3322(l4467, (30496)) Then
  86.         i4896 = -1
  87.       Else
  88.   223   i4896 = 0
  89.       End If
  90.   229 If i4896 = -1 Then
  91.         s4479 = "Y"
  92.       Else
  93.   262   s4479 = "N"
  94.         s4475 = "UNREGISTERED COPY"
  95.       End If
  96.   282 If Exists(ProgPath + "tdtmaint.dat") Then
  97.         i4654 = FreeFile
  98.         Open ProgPath + "tdtmaint.dat" For Input As i4654
  99.         Input #i4654, s4898
  100.         Close i4654
  101.         s4898 = UCase(s4898)
  102.         If s4898 <> s4884 Then
  103.           Del ProgPath + "tdtplay.dat"
  104.           Del ProgPath + "tdtmaint.dat"
  105.         End If
  106.       End If
  107.   408 i4654 = FreeFile
  108.       Open s4463 + "lachuser.dat" For Random As i4654 Len = 172 '! This value should probably be replaced with a "SizeOf" expression
  109.       i4480 = 0
  110.       Do
  111.   451   i4480 = i4480 + 1
  112.         Get i4654, i4480, t26_4656 '! 172 bytes
  113.         If InStr(UCase(t26_4656.s0), UCase(Pad(User.Name, 15))) Then
  114.           GoTo 541
  115.         End If
  116.   525 Loop While Not EOF(i4654)
  117.   541 Close i4654
  118.       Sub7084
  119.       If Exists(ProgPath + "tdtplay.dat") Then
  120.         i4654 = FreeFile
  121.         Open ProgPath + "tdtplay.dat" For Input As i4654
  122.         Do
  123.   610     Input #i4654, s4902
  124.           If InStr(UCase(s4902), UCase(t26_4656.s0)) Then
  125.             Close i4654
  126.             GoTo 693
  127.           End If
  128.   663   Loop While Not EOF(i4654)
  129.         Close i4654
  130.       End If
  131.   687 GoTo 751
  132.   693 MorePrompt(0)
  133.       Cls 
  134.       Sub5442
  135.       Locate 5, 12
  136.       Print "@0D@Sorry....It appears that you have already played today."
  137.       Locate 7, 12
  138.       Print "@0D@Come back tomorrow - and DON'T FORGET YOUR GOLD!!!!!"
  139.       Sub4381
  140.       Sub5342
  141.   751 i4654 = FreeFile
  142.       Open ProgPath + "tdtplay.dat" For Append As i4654
  143.       Print #i4654, UCase(t26_4656.s0)
  144.       Close i4654
  145.       i4654 = FreeFile
  146.       Open ProgPath + "tdtmaint.dat" For Output As i4654
  147.       Print #i4654, UCase(s4884)
  148.       Close i4654
  149.       Cls 
  150.       MorePrompt(0)
  151.       DisplayTextFile(ProgPath + "towers1.bbs")
  152.       Locate 12, 36
  153.       Print "@0D@.66 @08@(@07@Beta Release@08@)"
  154.       Locate 13, 36
  155.       Print "@0D@2/3/96"
  156.       Locate 14, 36
  157.       Print "@0D@" + s4475
  158.       Sub3794
  159.       Sub4381
  160.       Sub5442
  161.       Locate 5, 7
  162.       Print "@05@Your journey ends in a large field atop a mountain@07@.@08@.@07@.@08@."
  163.       Locate 6, 7
  164.       Print "@05@You see a large crowd of warriors@07@.@08@.@07@.@05@so you wander over to them@07@.@08@.@07@."
  165.       Locate 7, 7
  166.       Print "@0D@What's going on here fellow warriors? @05@you ask@07@.@08@.@07@.@08@.@07@.@08@.@07@.@08@."
  167.       Locate 8, 7
  168.       Print "@09@We're betting on slave deaths@07@.@08@.@07@.@08@.@05@ responds the nearest warrior."
  169.       Locate 9, 7
  170.       Print "@0D@SLAVE DEATHS?????? @05@Hmmmmm what the hell is this?????"
  171.       Locate 10, 7
  172.       Print "@05@You soon find out what they are talking about@07@.@08@.@07@.@08@.@07@.@08@.@07@."
  173.       Sub4381
  174.       Sub5442
  175.       Locate 5, 5
  176.       Print "@05@You can't help but notice the two @08@DARK TOWERS @05@off in the distance."
  177.       Locate 6, 5
  178.       Print "@05@This spot commands a magnificent view of the towers in the distance."
  179.       Locate 7, 5
  180.       Print "@05@Then you find out exactly what this is all about@07@.@08@.@07@.@08@.@07@.@08@.@07@.@08@."
  181.       Locate 8, 5
  182.       Print "@05@You notice that on each tower is a small ledge@07@.@08@.@07@.@08@.@07@.@08@."
  183.       Locate 9, 5
  184.       Print "@05@On each ledge stands a slave@07@.@08@.@07@.@08@.@07@.@08@.@07@.@08@."
  185.       Locate 10, 5
  186.       Print "@05@You notice that even as you stand there thinking@07@.@08@.@07@.@08@."
  187.       Locate 11, 5
  188.       Print "@05@Bets are being placed! What in the HELL is going on here??"
  189.       Locate 12, 5
  190.       Print "@05@After all the bets are placed a trumpet is sounded@07@.@08@.@07@.@08@.@07@.@08@."
  191.       Locate 13, 5
  192.       Print "@05@Then the slaves are pushed from the ledges to their deaths@07@.@08@.@07@.@08@.@07@."
  193.       Sub4381
  194.       Sub5442
  195.       Locate 5, 5
  196.       Print "@05@A flag is then raised to indicate which slave died first."
  197.       Locate 6, 5
  198.       Print "@05@Then the winnings are distributed to the winners@07@.@08@.@07@.@08@."
  199.       Locate 7, 5
  200.       Print "@05@A cheer is heard from the crowd! These are some really sick F@#$@#S!"
  201.       Locate 8, 5
  202.       Print "@05@How can this be????? This is freakin' barbaric!!!!!!"
  203.       Locate 9, 5
  204.       Print "@05@This is the most vile, disgusting thing you've EVER witnessed!"
  205.       Locate 10, 5
  206.       Print "@05@How can people BET on which body will hit the ground first???"
  207.       Locate 11, 5
  208.       Print "@05@How can life be so worthless as to be used for others amusement@07@.@08@.@07@.@08@.@07@."
  209.       Locate 12, 5
  210.       Print "@05@How can these people stand idly by and watch this senseless @04@CARNAGE@05@?"
  211.       Locate 13, 5
  212.       Print "@05@You've got to do something about these attrocities!"
  213.       Sub4381
  214.       Sub5442
  215.       Locate 5, 7
  216.       Print "@05@Well@07@.@08@.@07@.@08@.@07@.@05@what're ya gonna do " + "@05@" + Trim(t26_4656.s15) + "@05@???"
  217.       Locate 7, 7
  218.       Print "@05@[@0D@A@05@]@0D@venge the deaths of the slaves and kill these S.O.B.'s!!!!"
  219.       Locate 9, 7
  220.       Print "@05@[@0D@P@05@]@0D@lace your bet! Who cares about some lowlife slaves anyways!!!"
  221.       Do
  222.  1462   Locate 23, 1
  223.         s4832 = InKey(1213417543)
  224.         If InStr("AP", UCase(s4832)) Then
  225.           GoTo 1518
  226.         End If
  227.  1512 Loop
  228.  1518 If UCase(s4832) = "A" Then
  229.         Sub5442
  230.         Locate 5, 5
  231.         Print "@0D@STOP YOU SCOUNDRELS!!!! @05@You Yell at the crowd"
  232.         Locate 6, 5
  233.         Print "@0D@THIS HAS GOT TO STOP AND NOW!!!! THIS IS SENSELESS KILLING!!!"
  234.         Locate 7, 5
  235.         Print "@05@The only response to this is loud laughter@08@.@07@.@08@.@07@."
  236.         Locate 8, 5
  237.         Print "@05@They find your rantings extremely humorous@07@.@08@.@07@.@08@."
  238.         Locate 9, 5
  239.         Print "@05@Then one of the warriors yells @09@Throw his skanky a$$ offa the cliff@05@!!"
  240.         Locate 10, 5
  241.         Print "@05@You try to fight them off but it's no use - you're outnumbered!!"
  242.         Locate 11, 5
  243.         Print "@05@Four of the biggest ones grab you and chuck you off the cliff!"
  244.         Locate 12, 5
  245.         Print "@05@Your helpless body tumbles rapidly to the rocky base of the cliff!"
  246.         Locate 13, 5
  247.         Print "@05@Only the gods can save you now@07@.@08@.@07@.@08@.@07@.@08@."
  248.         Sub4381
  249.         Locate 23, 1
  250.         ClrEOL 
  251.         Sub5476
  252.         Sub5442
  253.         i4845 = Rnd * 100 Mod 50 + 1
  254.         If i4845 <= 25 Then
  255.           Locate 5, 5
  256.           Print "@05@Your body is ripped to pieces by the fall!!!"
  257.           Locate 6, 5
  258.           Print "@05@Some healers wander past - but not even they can save you!"
  259.           Locate 7, 5
  260.           Print "@05@With your last breath you say a prayer for your soul@07@.@08@.@07@.@08@."
  261.           Locate 8, 5
  262.           Print "@05@The last thing you remember is a flock of vultures descending on you."
  263.           Locate 9, 5
  264.           Print "@05@The Vultures pick your body of all but the bones@07@.@08@.@07@.@08@.@07@.@08@.@07@."
  265.           Locate 11, 25
  266.           Print "@84@Surprise you're DEAD!"
  267.           Sub4381
  268.           Sub5094
  269.         Else
  270.  1871     Locate 5, 5
  271.           Print "@05@Your body is ripped to pieces by the fall!!!"
  272.           Locate 6, 5
  273.           Print "@05@Some healers walk up@07@.@08@.@07@.@08@.@07@.@08@."
  274.           Locate 7, 5
  275.           Print "@05@They mumble some ancient sounding spells and incantations@07@.@08@.@07@.@08@."
  276.           Locate 8, 5
  277.           Print "@05@Well@07@.@08@.@07@.@08@.@05@They saved your life - but you're hurtin' bad!"
  278.           Locate 9, 5
  279.           Print "@05@You thank the gods that you have been spared this agonizing death!"
  280.           Locate 10, 5
  281.           Print "@05@You laugh at the vultures@07@.@08@.@07@.@08@.@07@.@08@.@07@.@08@.@0D@NO MEAL TODAY VULTURES@85@!"
  282.           Locate 12, 5
  283.           Print "@04@Your Hitpoints are at @0C@1 @04@Don't forget to go to the Doctor's Office@05@!!!"
  284.           i4847 = 1
  285.           t26_4656.s142 = Str(i4847)
  286.           If Len(t26_4656.s142) < 4 Then
  287.             t26_4656.s142 = Pad(t26_4656.s142, 4)
  288.           End If
  289.  2056     Sub4467
  290.           Sub4381
  291.           Sub5392
  292.         End If
  293.       End If
  294.  2074 If UCase(s4832) = "P" Then
  295.         Sub5442
  296.         Locate 5, 12
  297.         Print "@09@Step right up WARRIOR!!! @05@an older Warrior bellows."
  298.         Locate 6, 12
  299.         Print "@09@There is only one bet left today@07@.@08@.@07@.@08@."
  300.         Locate 7, 12
  301.         Print "@09@So if you're gonna bet do it now " + "@09@" + Trim(t26_4656.s15) + "@09@!!!"
  302.         Locate 8, 12
  303.         Print "@09@WELL????? Are ya gonna bet or not????? @05@asks the warrior."
  304.         Locate 10, 22
  305.         Print "@05@[@0D@H@05@]@0D@ell YEAH!!!"
  306.         Locate 12, 22
  307.         Print "@05@[@0D@N@05@]@0D@ope I changed my mind!!!"
  308.         Do
  309.  2227     Locate 23, 1
  310.           s4832 = InKey(1213417543)
  311.           If InStr("HN", UCase(s4832)) Then
  312.             GoTo 2283
  313.           End If
  314.  2277   Loop
  315.  2283   If UCase(s4832) = "N" Then
  316.           Sub5442
  317.           Locate 5, 12
  318.           Print "@05@What a @0D@WUSS@05@!!!!!!"
  319.           Locate 6, 12
  320.           Print "@05@All the other warriors laugh at you!"
  321.           Locate 7, 12
  322.           Print "@09@Get outa here you little wimp of a warrior!"
  323.           Locate 8, 12
  324.           Print "@05@They all laugh in ridicule of you!"
  325.           Locate 9, 12
  326.           Print "@05@They all start to eye you warily@07@.@08@.@07@.@08@."
  327.           Locate 10, 12
  328.           Print "@05@It'd probably be a good idea to leave now@07@.@08@.@07@.@08@."
  329.           Sub4381
  330.           Sub5342
  331.         Else
  332.           Do
  333.             Do
  334.  2425         r4856 = Val(Trim(t26_4656.s62))
  335.               Sub5442
  336.               Locate 5, 12
  337.               Print "@09@Well how much you wanna bet " + "@09@" + Trim(t26_4656.s15) + "@09@???"
  338.               Locate 6, 12
  339.               Print "@09@The maximum bet here is 10,000 Gold@07@.@08@.@07@.@08@.@07@.@08@."
  340.               Locate 7, 12
  341.               Print "@09@The odds are 2 to 1 - A 10,000 bet can win ya 20,000!"
  342.               Locate 8, 12
  343.               Print "@09@Well? I ain't got all day - what's it gonna be " + "@09@" + Trim(t26_4656.s15) + "@09@???"
  344.               Locate 9, 12
  345.               Print "@09@To just quit - select a 0 bet@07@.@08@.@07@.@08@.@07@.@08@."
  346.               Locate 10, 12
  347.               s4849 = InputMask("@09@How much are ya gonna bet? @0C@", "XXXXX", "", 1213417543)
  348.               i4854 = Val(Trim(s4849))
  349.               If (i4854 > 10000) = 0 Then GoTo 2704
  350.               Locate 12, 12
  351.               Print "@09@Can't you READ??? I SAID 10,000 Gold MAXIMUM BET!!!!!"
  352.               Locate 13, 13
  353.               Print "@09@Let's see if you can get it right THIS TIME!!!!"
  354.               Sub4381
  355.             Loop
  356.  2704       If i4854 < 1 Then
  357.               Locate 12, 12
  358.               Print "@09@You obviously don't take this seriously @05@states the warrior."
  359.               Locate 13, 12
  360.               Print "@09@So why don't ya get the HELL outa here NOW!!!"
  361.               Locate 14, 12
  362.               Print "@05@It seems that NOW would be a good time to leave@07@.@08@.@07@.@08@."
  363.               Locate 15, 12
  364.               Print "@05@Before these warriors decide to bet on your life!"
  365.               Sub4381
  366.               Sub5342
  367.             End If
  368.  2795       If (i4854 > r4856) = 0 Then GoTo 2883
  369.             Locate 12, 12
  370.             Print "@09@YOU SCOUNDREL! ARE YOU TRYING TO CHEAT ME?"
  371.             Locate 13, 12
  372.             Print "@09@You don't even have " + "@09@" + Trim(s4849) + "@09@ gold!"
  373.             Sub4381
  374.           Loop
  375.  2883     r4856 = r4856 - i4854
  376.           t26_4656.s62 = Str(r4856)
  377.           If Len(t26_4656.s62) < 7 Then
  378.             t26_4656.s62 = Pad(t26_4656.s62, 7)
  379.           End If
  380.  2968     If Len(t26_4656.s62) > 7 Then
  381.             t26_4656.s62 = "9999999"
  382.           End If
  383.  3006     Sub4467
  384.           Sub5442
  385.           Locate 5, 12
  386.           Print "@09@VERY GOOD! A bet of " + "@09@" + s4849 + " @09@is a noble one indeed!"
  387.           Locate 6, 12
  388.           Print "@09@There is just one more MINOR detail to take care of@07@.@08@.@07@.@08@."
  389.           Locate 7, 12
  390.           Print "@09@That would be which SLAVE do you think will die first?????"
  391.           Locate 8, 12
  392.           Print "@09@WELL?? Which one will it be " + "@09@" + Trim(t26_4656.s15) + "@09@???"
  393.           Locate 10, 12
  394.           Print "@05@The [@09@B@05@]@09@lue @05@Slave"
  395.           Locate 12, 12
  396.           Print "@05@The [@0D@M@05@]@0D@agenta @05@Slave"
  397.           Do
  398.  3165       Locate 23, 1
  399.             s4832 = InKey(1213417543)
  400.             If InStr("BM", UCase(s4832)) Then
  401.               GoTo 3221
  402.             End If
  403.  3215     Loop
  404.  3221     s4864 = UCase(s4832)
  405.           Sub5442
  406.           Locate 10, 20
  407.           Print "@8D@PLEASE HOLD - PREPARING THE SLAVES"
  408.           Sub5476
  409.           Sub5972
  410.         End If
  411.       End If
  412.  3270
  413.  
  414. '! Called 1 time
  415.       Function Func3322(l65534 As Long, l65532 As Long) As Integer
  416.         Dim l65467 As Long
  417.         Dim i65471 As Integer
  418.         Dim l65473 As Long
  419.         Dim i65477 As Integer
  420.         Dim s65483 As String*7
  421.         Dim s65490 As String*30
  422.         Dim l65520 As Long
  423.         Dim l65524 As Long
  424.         Dim i65528 As Integer
  425.  
  426.         s65490 = UCase(MakeWild.BBSName)
  427.         s65490 = Trim(s65490)
  428.         l65524 = 0
  429.  3399   For i65528 = 1 To Len(s65490) Step 1
  430.           l65524 = l65524 + Asc(Mid(s65490, i65528, 1))
  431.         Next
  432.  3503   s65483 = UCase(MakeWild.RegString)
  433.         s65483 = Trim(s65483)
  434.         l65520 = 0
  435.  3572   For i65528 = 1 To Len(s65483) Step 1
  436.           l65520 = l65520 + Asc(Mid(s65483, i65528, 1))
  437.         Next
  438.  3676   l65520 = l65520 + l65524
  439.         l65520 = l65520 * 7
  440.         l65520 = l65520 * l65532
  441.         l65520 = l65520 + l65532
  442.         If l65520 = l65534 Then
  443.           Func3322 = - 1
  444.         Else
  445.  3780     Func3322 = 0
  446.         End If
  447.  3786
  448.       End Function
  449.  
  450. '! Called 1 time
  451.       Sub Sub3794
  452.         s4837 = "@07@" + Trim(t26_4656.s15) + " @08@traveled to @07@T@08@he @07@D@08@ark @07@T@08@owers@84@!"
  453.         s4841 = "@08@What secrets could possibly lie within their cold stone walls?"
  454.         Open s4463 + "today.txt" For Append As i4654
  455.         Print #i4654, s4837
  456.         Print #i4654, s4841
  457.         Print #i4654, s4833
  458.         Close i4654
  459.       End Sub
  460.  
  461. '! Called 1 time
  462.       Sub Sub3919
  463.         s4837 = "@07@" + Trim(t26_4656.s15) + " @08@was chucked off a cliff in @07@T@08@he @07@D@08@ark @07@T@08@owers@84@!"
  464.         s4841 = "@08@We all shall mourn the passing of " + "@07@" + Trim(t26_4656.s15) + " @08@the Warrior...."
  465.         Open s4463 + "today.txt" For Append As i4654
  466.         Print #i4654, s4837
  467.         Print #i4654, s4841
  468.         Print #i4654, s4833
  469.         Close i4654
  470.       End Sub
  471.  
  472. '! Called 1 time
  473.       Sub Sub4073
  474.         s4837 = "@0D@" + Trim(t26_4656.s15) + " @05@was chucked off a cliff in @07@T@08@he @07@D@08@ark @07@T@08@owers@84@!"
  475.         s4841 = "@05@Amazingly " + "@0D@" + Trim(t26_4656.s15) + " @05@they survived the ordeal! Send 'em a Get Well Soon Card!"
  476.         Open s4463 + "today.txt" For Append As i4654
  477.         Print #i4654, s4837
  478.         Print #i4654, s4841
  479.         Print #i4654, s4833
  480.         Close i4654
  481.       End Sub
  482.  
  483. '! Called 1 time
  484.       Sub Sub4227
  485.         s4837 = "@0D@" + Trim(t26_4656.s15) + " @05@successfully made it back from @07@T@08@he @07@D@08@ark @0D@T@08@owers@84@!"
  486.         s4841 = "@05@I bet " + "@0D@" + Trim(t26_4656.s15) + " @05@has some stories to tell...."
  487.         Open s4463 + "today.txt" For Append As i4654
  488.         Print #i4654, s4837
  489.         Print #i4654, s4841
  490.         Print #i4654, s4833
  491.         Close i4654
  492.       End Sub
  493.  
  494. '! Called 15 times
  495.       Sub Sub4381
  496.         Locate 23, 25
  497.         Print "@0D@Stroke a @0F@KEY, @0D@Warrior!@0A@ "
  498.         Do
  499.  4406     s4832 = InKey(1213417543)
  500.           If UCase(s4832) > "" Then
  501.             GoTo 4454
  502.           End If
  503.  4448   Loop
  504.  4454   Locate 23, 1
  505.         ClrEOL 
  506.       End Sub
  507.  
  508. '! Called 7 times
  509.       Sub Sub4467
  510.         i4654 = FreeFile
  511.         Open s4463 + "lachuser.dat" For Random As i4654 Len = 172 '! This value should probably be replaced with a "SizeOf" expression
  512.         Put i4654, i4480, t26_4656 '! 172 bytes
  513.         Close i4654
  514.       End Sub
  515.  
  516. '! Called 3 times
  517.       Sub Sub4542
  518.         Dim l65512 As Long
  519.         Dim i65516 As Integer
  520.         Dim l65518 As Long
  521.         Dim i65522 As Integer
  522.         Dim l65524 As Long
  523.         Dim i65528 As Integer
  524.         Dim l65530 As Long
  525.         Dim i65534 As Integer
  526.  
  527.         Cls 
  528.         MorePrompt(0)
  529.         Locate 8, 17
  530.         Print "  @84@UNREGISTERED PROGRAM - PLEASE REGISTER"
  531.         Locate 9, 17
  532.         Print "@0D@┌@05@───────────────────@0D@┬@05@────────────────────@0D@┐"
  533.         Locate 11, 17
  534.         Print "@0D@└@05@───────────────────@0D@┴@05@────────────────────@0D@┘"
  535.  4628   For i4830 = 17 To 27 Step 1
  536.           Locate 10, i4830
  537.           Print "@0D@░"
  538.           Delay 0.1
  539.         Next
  540.  4728
  541.  4749   For i4830 = 28 To 38 Step 1
  542.           Locate 10, i4830
  543.           Print "@0D@▒"
  544.           Delay 0.1
  545.         Next
  546.  4849
  547.  4870   For i4830 = 39 To 49 Step 1
  548.           Locate 10, i4830
  549.           Print "@0D@▓"
  550.           Delay 0.1
  551.         Next
  552.  4970
  553.  4991   For i4830 = 50 To 58 Step 1
  554.           Locate 10, i4830
  555.           Print "@0D@█"
  556.           Delay 0.1
  557.         Next
  558.  5091
  559.       End Sub
  560.  
  561. '! Called 1 time
  562.       Sub Sub5094
  563.         Sub3919
  564.         i4847 = 0
  565.         t26_4656.s136 = "NO "
  566.         t26_4656.s142 = Str(i4847)
  567.         t26_4656.s62 = "0      "
  568.         If Len(t26_4656.s62) <= 7 Then
  569.           t26_4656.s62 = Pad(t26_4656.s62, 7)
  570.         End If
  571.  5211   If Len(t26_4656.s142) <= 4 Then
  572.           t26_4656.s142 = Pad(t26_4656.s142, 4)
  573.         End If
  574.  5259   If Len(t26_4656.s136) <= 3 Then
  575.           t26_4656.s136 = Pad(t26_4656.s136, 3)
  576.         End If
  577.  5307   Sub4467
  578.         If s4479 = "N" Then
  579.           Sub4542
  580.         End If
  581.  5338   End 
  582.       End Sub
  583.  
  584. '! Called 3 times
  585.       Sub Sub5342
  586.         Sub4227
  587.         Sub4467
  588.         If s4479 = "N" Then
  589.           Sub4542
  590.         End If
  591.  5388   End 
  592.       End Sub
  593.  
  594. '! Called 1 time
  595.       Sub Sub5392
  596.         Sub4073
  597.         Sub4467
  598.         If s4479 = "N" Then
  599.           Sub4542
  600.         End If
  601.  5438   End 
  602.       End Sub
  603.  
  604. '! Called 13 times
  605.       Sub Sub5442
  606.         Cls 
  607.         MorePrompt(0)
  608.         DisplayTextFile(ProgPath + "towers4.bbs")
  609.       End Sub
  610.  
  611. '! Called 2 times
  612.       Sub Sub5476
  613.         Dim l65512 As Long
  614.         Dim i65516 As Integer
  615.         Dim l65518 As Long
  616.         Dim i65522 As Integer
  617.         Dim l65524 As Long
  618.         Dim i65528 As Integer
  619.         Dim l65530 As Long
  620.         Dim i65534 As Integer
  621.  
  622.  5506   For i4830 = 17 To 27 Step 1
  623.           Locate 20, i4830
  624.           Print "@0D@░"
  625.           Delay 0.1
  626.         Next
  627.  5606
  628.  5627   For i4830 = 28 To 38 Step 1
  629.           Locate 20, i4830
  630.           Print "@0D@▒"
  631.           Delay 0.1
  632.         Next
  633.  5727
  634.  5748   For i4830 = 39 To 49 Step 1
  635.           Locate 20, i4830
  636.           Print "@0D@▓"
  637.           Delay 0.1
  638.         Next
  639.  5848
  640.  5869   For i4830 = 50 To 58 Step 1
  641.           Locate 20, i4830
  642.           Print "@0D@█"
  643.           Delay 0.1
  644.         Next
  645.  5969
  646.       End Sub
  647.  
  648. '! Called 1 time
  649.       Sub Sub5972
  650.         Dim i65532 As Integer
  651.         Dim i65534 As Integer
  652.  
  653.         s4874 = "@09@Ω"
  654.         s4878 = "@0D@Ω"
  655.         i4866 = 6
  656.         i4868 = 12
  657.         i4870 = 6
  658.         i4872 = 60
  659.         w4828 = 6
  660.         i4830 = 13
  661.         i4845 = Rnd * 100 Mod 10 + 1
  662.         i65534 = i4845
  663.         i4845 = Rnd * 100 Mod 10 + 1
  664.         i65532 = i4845
  665.         s4865 = " "
  666.         Cls 
  667.         MorePrompt(0)
  668.         DisplayTextFile(ProgPath + "towers.bbs")
  669.         Locate i4866, i4868
  670.         Print s4874
  671.         Locate i4870, i4872
  672.         Print s4878
  673.         Locate 3, 9
  674.         Print "@0F@· ∙ @0F@──@07@──@08@── @08@We Who@07@ Are Abo@0F@ut To D@07@ie Salu@08@te You!@07@ @08@──@07@──@0F@──@07@ @0F@∙ ·"
  675.         Sub4381
  676.         i4868 = 13
  677.         i4872 = 59
  678.         Cls 
  679.         MorePrompt(0)
  680.         DisplayTextFile(ProgPath + "towers.bbs")
  681.         Locate i4866, i4868
  682.         Print s4874
  683.         Locate i4870, i4872
  684.         Print s4878
  685.         Delay 0.5
  686.         Locate i4866, i4868
  687.         Print " "
  688.         Locate i4870, i4872
  689.         Print " "
  690.         Do
  691.  6336     i4866 = i4866 + i65534
  692.           If i4866 >= 23 Then
  693.             s4865 = "B"
  694.             GoTo 6534
  695.           End If
  696.  6385     i4870 = i4870 + i65532
  697.           If i4870 >= 23 Then
  698.             s4865 = "M"
  699.             GoTo 6534
  700.           End If
  701.  6434     Locate i4866, i4868
  702.           Print s4874
  703.           Locate i4870, i4872
  704.           Print s4878
  705.           Delay 0.5
  706.           Locate i4870, i4830
  707.           Print Space(47)
  708.           Locate i4866, i4830
  709.           Print Space(47)
  710.         Loop
  711.  6534   If s4865 = "B" Then
  712.           Cls 
  713.           MorePrompt(0)
  714.           DisplayTextFile(ProgPath + "towers2.bbs")
  715.         Else
  716.  6581     Cls 
  717.           MorePrompt(0)
  718.           DisplayTextFile(ProgPath + "towers3.bbs")
  719.         End If
  720.  6603   Delay 1.5
  721.         Sub5442
  722.         If s4865 = s4864 Then
  723.           i4862 = i4854 * 2
  724.           r4856 = r4856 + i4862
  725.           t26_4656.s62 = Str(r4856)
  726.           If Len(t26_4656.s62) < 7 Then
  727.             t26_4656.s62 = Pad(t26_4656.s62, 7)
  728.           End If
  729.  6736     If Len(t26_4656.s62) > 7 Then
  730.             t26_4656.s62 = "9999999"
  731.           End If
  732.  6774     Sub4467
  733.           Locate 5, 8
  734.           Print "@05@The officiating Warrior rushes over to you@08@.@07@.@08@.@07@.@08@.@07@.@08@."
  735.           Locate 6, 8
  736.           Print "@09@VERY WELL DONE Mighty " + "@09@" + Trim(t26_4656.s15) + "@09@!!!!"
  737.           Locate 7, 8
  738.           Print "@09@VERY WELL INDEED! @05@stammers the Warrior@07@.@08@.@07@.@08@.@07@."
  739.           Locate 8, 8
  740.           Print "@09@Your bet came in! You won " + "@89@" + Str(i4862) + " @89@GOLD@09@!!!!"
  741.           Locate 10, 8
  742.           Print "@05@Too bad for the Slaves - But they made you a tidy sum of CASH!!!"
  743.         Else
  744.  6919     i4862 = 0
  745.           Locate 5, 8
  746.           Print "@09@HAHAHAHAHAHAHA You Suck! @05@Scoffs the Warrior."
  747.           Locate 6, 8
  748.           Print "@09@Your betting ability is crappy at the best! @05@He laughs."
  749.           Locate 7, 8
  750.           Print "@09@Maybe you'd be better suited on the 'Other Side' of this game!"
  751.           Locate 8, 8
  752.           Print "@05@NOW might be a good time for you to get the hell outa here!!!!"
  753.           Locate 9, 8
  754.           Print "@05@The Warrior is watching you warily@07@.@08@.@07@.@08@."
  755.           Locate 10, 8
  756.           Print "@09@GET HIM! @05@he yells! All the warriors rush after you!"
  757.           Locate 11, 8
  758.           Print "@05@You (somehow) manage to escape the group@07@.@08@.@07@.@08@.@07@."
  759.           Locate 13, 8
  760.           Print "@05@You rush back to The World of The Lachrymator@08@.@07@.@08@.@07@.@08@.@07@."
  761.           Locate 15, 8
  762.           Print "@0D@WHEW! THAT SURE WAS A CLOSE ONE!!!!!!!!!!!!!"
  763.         End If
  764.  7069   Sub4381
  765.         Sub4467
  766.       End Sub
  767.  
  768. '! Called 1 time
  769.       Sub Sub7084
  770.         Dim s65528 As String
  771.         Dim s65532 As String
  772.  
  773.         If Exists(s4463 + "lachex" + s4888 + ".dat") Then
  774.           i4654 = FreeFile
  775.           Open s4463 + "lachex" + s4888 + ".dat" For Input As i4654
  776.           Input #i4654, s65532
  777.           Close i4654
  778.           s65528 = Left(s65532, 15)
  779.           If UCase(s65528) = UCase(t26_4656.s0) Then
  780.             GoTo 7366
  781.           Else
  782.  7243       GoTo 7255
  783.           End If
  784.  7249   Else
  785.  7255     Cls 
  786.           MorePrompt(0)
  787.           Locate 3, 12
  788.           Print "@84@ERROR!! ERROR!! ERROR!! ERROR!! ERROR!! ERROR!! ERROR!!"
  789.           Locate 5, 12
  790.           Print "@09@This Program can only be run from a REGISTERED COPY"
  791.           Locate 6, 12
  792.           Print "of Lachrymator. This program cannot be run on it own...."
  793.           Locate 7, 12
  794.           Print "@09@According to internal file verification routines..."
  795.           Locate 8, 12
  796.           Print "@09@The installed copy of Lachrymator is NOT REGISTERED!"
  797.           Locate 9, 12
  798.           Print "@09@PLEASE ask your SysOp to Register Lachrymator..Thanks!"
  799.         End If
  800.  7359   Sub4381
  801.         End 
  802.  7366
  803.       End Sub
  804.